home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1998 July / EnigmA AMIGA RUN 29 (1998)(G.R. Edizioni)(IT)[!][issue 1998-07 & 08].iso / earcd / phase5 / cybergl / install_cybergl < prev    next >
Text File  |  1997-03-31  |  8KB  |  189 lines
  1. ;********************************************************************************
  2. ;     ______        __                  ______ __
  3. ;    / __  /       / /                 / __  // /
  4. ;   / /  -'__  __ / /___ ______ _____ / /_ -'/ /
  5. ;  / /     \ \/ // __  // ____// .__// // \ / /
  6. ; / /___    \  // /_/ // __/_ / /   / /_/ // /___
  7. ; \____/    / //_____//_____//_/   /_____//_____/
  8. ;
  9. ; $VER: CyberGL_Installer 0.58 (April-01-1997) 
  10. ; Installer by Robert C. Reiswig ©1996-1997 
  11. ; CyberGL @1996-1997 by phase5 digital products
  12. ;
  13. ; If you wish to use any part of this installer you must ask. May not be 
  14. ; integrated/placed into any other package! Changes, suggestions or problems:
  15. ; vgr@best.com
  16. ;********************************************************************************
  17.  
  18. (set vernum1 (getversion "cybergl.library.040"))
  19. (set ver1 (/ vernum1 65536)) (set rev1 (- vernum1 (* ver1 65536) ) )
  20. (set cyberglver (cat ver1 "." rev1))
  21. (set where "ram:")
  22.  
  23.  
  24. ;********************************************************************************
  25. ; Set Defaults Strings (English)
  26. ;********************************************************************************
  27. (if (= ver1 0) (set cyberglver ""))
  28. (set #about (cat "\n\n\nWelcome to CyberGL\n\n©1996-1997 by phase5 digital products\n\n[ cybergl.library = " cyberglver " ]\n\nCurrently most everything is in German.") )
  29. (set #needfpu "\n\nCyberGL must have a FPU (Floating Point Unit) to work. The installer has not found a FPU _or_ you are running an older version of the installer that does not have the FPU check option.\n\nIf you have a FPU please press 'Proceed'.")
  30.  
  31. (set #todo-prompt "\nWhat would you like to do?\n")
  32. (set #updatelibs " Update CyberGL libs")
  33. (set #copyexamp " Copy CyberGL demos/examples") 
  34. (set #installobj " Copy Objects & Reflect")
  35. (set #wheredemos "Where would you like to install the selected options? A directory called 'CyberGL' will be created there.")
  36.  
  37. (set #askcpu "\nWhat CPU does the machine have that you are installing CyberGL on? The installer has found:\n")
  38. (set #wherelibs "Where do you wish to install the CyberGL library? The default is 'SYS:Libs'")
  39. (set #byebye (cat "\nCyberGL Install Complete!\n\n" ))
  40.  
  41.  
  42.  
  43. ;*********************************************************************************
  44. ; German Strings
  45. ;*********************************************************************************
  46. (if (= @language "deutsch")
  47. (
  48. (set #yes "Ja")
  49. (set #about (cat "\n\n\n\nWillkommen zur CyberGL Installation\n\n©1996-1997 phase5 digital products\n\n[ cybergl.library = " cyberglver " ]\n\n.") )
  50. (set #needfpu "\n\nCyberGL benötigt eine FPU (Fließkomma Prozessor). Das Installationsprogramm fand allerding keine _oder_ Sie benutzen eine alte Version des Installationsprogramms, das die FPU Überprüfung nicht ermöglicht.\n\nWenn Ihr Rechner eine FPU besitzt, drücken Sie 'Weiter'.")
  51.  
  52. (set #todo-prompt "\nWas wollen Sie erledigen?\n")
  53. (set #updatelibs " Erneuere CyberGL Bibliotheken")
  54. (set #copyexamp " CyberGL Demos/Beispiele kopieren") 
  55. (set #installobj " Objekte & Reflection Maps kopieren")
  56. (set #wheredemos "Wohin wollen Sie die angewählten Optionen installieren? Ein Verzeichnis 'CyberGL' wird dort erzeugt.")
  57.  
  58. (set #askcpu "\nWelcher Prozessor ist in Ihrem Rechner, auf dem Sie CyberGL nutzen wollen, installiert? Das Installationsprogramm fand:\n")
  59. (set #wherelibs "Wohin wollen Sie die CyberGL Bibliotheken kopieren? Standard ist 'SYS:Libs'")
  60. (set #byebye (cat "\nCyberGL Installation ist nun vollendet!\n\n" ))
  61.  
  62. )
  63. )
  64.  
  65. ;*********************************************************************************
  66. ; Welcome Message
  67. ;*********************************************************************************
  68. (message #about)
  69. (welcome)
  70.  
  71. (set fpu (database "fpu"))
  72. (if (= fpu "NOFPU") (message #needfpu))
  73.  
  74. ;*********************************************************************************
  75. ; Ask what to do
  76. ;*********************************************************************************
  77. (if (exists ("libs:cybergl.library")) (set whattodo 1) (set whattodo 15) )
  78.  
  79. (set ToDo (askoptions (choices  #updatelibs #copyexamp #installobj) 
  80.                       (prompt #todo-prompt)
  81.                       (help #todo-prompt)
  82.                       (default whattodo)
  83.           )
  84. ) 
  85.  
  86.  
  87. (if (IN ToDo 0) 
  88. (  
  89. ;********************************************************************
  90. ; Double Check on the CPU
  91. ;********************************************************************
  92. (set cpu (database "cpu"))
  93. (if (= cpu 68000) (set #cpu 0)) (if (= cpu 68010) (set #cpu 0))
  94. (if (= cpu 68020) (set #cpu 0)) (if (= cpu 68030) (set #cpu 0))
  95. (if (= cpu 68040) (set #cpu 1)) 
  96.  
  97. (if (= @installer-version 0)
  98.   (if (> (exists ("libs:68060.library")) 0) (set #cpu 2) )
  99.   (if (= cpu 68060) (set #cpu 2))
  100. )
  101.  
  102. (set cpuPick (askchoice (choices "68020 or 68030" "68040" "68060")
  103.             (prompt #askcpu)
  104.                     (help   #askcpu)
  105.                   (default #cpu)
  106.       )
  107. )
  108.  
  109. ;*********************************************************************************
  110. ; Ask where & Copy lib                                                           
  111. ;*********************************************************************************
  112. (set wherelibs   (askdir (prompt #wherelibs)
  113.              (help   #wherelibs)
  114.                   (default "SYS:libs")
  115.          )
  116. )
  117.  
  118. (if (= cpuPick 0) (set cpuadd ".030")) 
  119. (if (= cpuPick 1) (set cpuadd ".040"))
  120. (if (= cpuPick 2) (set cpuadd ".060"))
  121.  
  122. (set #untempdirlib "")
  123.  
  124. (set vernum1 (getversion (tackon wherelibs "cybergl.library") ))
  125. (set ver1 (/ vernum1 65536)) (set rev1 (- vernum1 (* ver1 65536) ) )
  126. (set cyberglver (cat ver1 "." rev1))
  127.  
  128. (if (= "41.2" cyberglver) (delete (tackon wherelibs "cybergl.library")) )
  129.  
  130. (if (exists (tackon #untempdirlib (cat "cybergl.library" cpuadd)) )
  131.   (copylib (source (tackon #untempdirlib (cat "cybergl.library" cpuadd))) (dest wherelibs) (newname "cybergl.library") (optional "nofail") ) 
  132. )
  133.  
  134.  
  135. ); End todo 0
  136. ); End todo 0
  137.  
  138. ;*********************************************************************************
  139. ; Ask where to put demos                                                           
  140. ;*********************************************************************************
  141. (if (OR (IN ToDo 1) (IN ToDo 2))
  142.  (
  143.    (set where   (askdir (prompt #wheredemos)
  144.                     (help   #wheredemos)
  145.                  (default "RAM:")
  146.         )
  147.    )
  148.  )
  149. )
  150.  
  151. ;********************************************************************
  152. ; Copy Demos if wanted
  153. ;********************************************************************
  154. (if (IN ToDo 1) 
  155.  (  
  156.   (if (< (exists (tackon where "CyberGL")) 2) (makedir (tackon where "CyberGL") (infos)) )
  157.   (if (< (exists (tackon where "CyberGL/Examples")) 2) (makedir (tackon where "CyberGL/Examples") (infos)) )
  158.   (copyfiles (source "examples")  (dest (tackon where "CyberGL/Examples")) (all) (infos) (optional "nofail")) 
  159.  )
  160. )
  161.  
  162. ;********************************************************************
  163. ; Copy objects & refelect if wanted
  164. ;********************************************************************
  165. (if (IN ToDo 2) 
  166.  (  
  167.   (if (< (exists (tackon where "CyberGL")) 2) (makedir (tackon where "CyberGL") (infos)) )
  168.   (if (< (exists (tackon where "CyberGL/Objects")) 2) (makedir (tackon where "CyberGL/Objects") (infos)) )
  169.   (copyfiles (source "Objects")  (dest (tackon where "CyberGL/Objects")) (all) (infos) (optional "nofail")) 
  170.   (if (< (exists (tackon where "CyberGL/Reflect")) 2) (makedir (tackon where "CyberGL/Reflect") (infos)) )
  171.   (copyfiles (source "Reflect")  (dest (tackon where "CyberGL/Reflect")) (all) (infos) (optional "nofail")) 
  172.  )
  173. )
  174.  
  175. ;*********************************************************************************
  176. ; Exit                                                           
  177. ;*********************************************************************************
  178. (set @default-dest (tackon where "CyberGL"))
  179.  
  180. (if (> (exists ("c:multiview")) 0) (set #mpath "c:") )
  181. (if (> (exists ("sys:Utilities/multiview")) 0) (set #mpath "sys:Utilities") )
  182.  
  183. (if (= @language "deutsch")  (set fileread "Liesmich.txt")   (set fileread "Readme.txt")  )
  184. ;;(run (cat "run " #mpath "/multiview " fileread) )
  185. (run (cat  #mpath "/multiview " fileread) )
  186. (run (cat "run " #mpath "/multiview Changes.txt") )
  187.  
  188. (exit #byebye)
  189.